Voorbeeld met de gebeurtenissen Enter en Exit en de eigenschap ActiveControl

In het volgende voorbeeld wordt de eigenschap ActiveControl gebruikt in een subroutine waarmee wordt bijgehouden welke besturingselementen de gebruiker activeert. De gebeurtenis Enter voor elk besturingselement roept de subroutine TraceFocus aan, waarmee wordt bepaald welk besturingselement op dat moment de focus heeft.

Als u dit voorbeeld wilt gebruiken, kopieert u deze voorbeeldcode naar de declaratiesectie van een formulier. Zorg ervoor dat het formulier de volgende besturingselementen bevat:

• Een ScrollBar met de naam ScrollBar1.
  
  
• Een ListBox met de naam ListBox1.
  
  
• Twee besturingselementen OptionButton met de namen OptionButton1 en OptionButton2.
  
  
• Een Frame met de naam Frame1.

Dim MyControl As Control

Private Sub TraceFocus()
    ListBox1.AddItem ActiveControl.Name
    ListBox1.List(ListBox1.ListCount - 1, 1) = _
        ActiveControl.TabIndex
End Sub

Private Sub UserForm_Initialize()
    ListBox1.ColumnCount = 2
    ListBox1.AddItem "Controls Visited"
    ListBox1.List(0, 1) = "Control Index"
End Sub

Private Sub Frame1_Enter()
    TraceFocus
End Sub

Private Sub ListBox1_Enter()
    TraceFocus
End Sub

Private Sub OptionButton1_Enter()
    TraceFocus
End Sub

Private Sub OptionButton2_Enter()
    TraceFocus
End Sub

Private Sub ScrollBar1_Enter()
    TraceFocus
End Sub